﻿Imports DTO
Imports BUS
Public Class frmThemTyGia

    Public Delegate Sub TyGia(tg As TyGiaDTO)

    Public Event LamMoiTGKhiThem As TyGia


    Public kt As Integer = 0

    Public maTG As String
    Public tenTG As String
    Public TGQD As Double
    Public maTT As Integer

    Private Sub btnThemDongTG_Click(sender As Object, e As EventArgs) Handles btnThemDongTG.Click
        KhoHangBUS.DongKetNoi.Close()
        Me.Close()
    End Sub

    Sub ThemTyGia()
        KhoHangBUS.DongKetNoi.Close()
        Dim tygia As New TyGiaDTO

        tygia.MaTyGia = txtThemMaTG.Text.Trim()
        tygia.TenTyGia = txtThemTenTG.Text.Trim()
        tygia.TyGiaQuyDoi = Convert.ToDouble(CalTyGia.Text.Trim())
        If chkConQuanLyTG.Checked = True Then
            tygia.MaTT = 1
        Else
            tygia.MaTT = 0
        End If

        For Each row As DataRow In TyGiaBUS.LayDSTyGia().Rows
            If txtThemMaTG.Text.Trim() = row(0).ToString() Then
                DevExpress.XtraEditors.XtraMessageBox.Show("Mã tỷ giá đã tồn tại", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Next

        If TyGiaBUS.ThemTyGia(tygia) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Thêm thành công tỷ giá", "Thông tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên tỷ giá không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        RaiseEvent LamMoiTGKhiThem(tygia)
    End Sub

    Sub CapNhatTyGia()
        KhoHangBUS.DongKetNoi.Close()
        Dim tygia As New TyGiaDTO

        tygia.MaTyGia = txtThemMaTG.Text.Trim()
        tygia.TenTyGia = txtThemTenTG.Text.Trim()
        tygia.TyGiaQuyDoi = Convert.ToDouble(CalTyGia.Text.Trim())
        If chkConQuanLyTG.Checked = True Then
            tygia.MaTT = 1
        Else
            tygia.MaTT = 0
        End If

        If TyGiaBUS.CapNhatTyGia(tygia) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Cập nhật thành công tỷ giá", "Thông tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên tỷ giá không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub


    Private Sub btnThemLuuTG_Click(sender As Object, e As EventArgs) Handles btnThemLuuTG.Click
        NhanVienBUS.DongKetNoi.Close()
        If kt = 1 Then
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 26)
            If pq.Sua = True Then
                CapNhatTyGia()
                HeThongBUS.themNhatKy(frmMain.maND, "Tiền Tệ", "Cập nhật", maTG)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 26)
            If pq.Them = True Then
                ThemTyGia()
                HeThongBUS.themNhatKy(frmMain.maND, "Tiền Tệ", "Thêm", txtThemTenTG.Text)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    Private Sub frmThemTyGia_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If kt = 1 Then
            txtThemMaTG.Properties.ReadOnly = True
            txtThemMaTG.Text = maTG
            txtThemTenTG.Text = tenTG
            CalTyGia.Text = TGQD.ToString()
            If maTT = 1 Then
                chkConQuanLyTG.Checked = True
            Else
                chkConQuanLyTG.Checked = False
            End If
        End If
    End Sub
End Class